home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / memory.clssa < prev    next >
Text File  |  1995-01-20  |  4KB  |  125 lines
  1. /***********************************************************************
  2.   GADGET: "'Memory'" "7" AUTO TYP: "?"
  3.  
  4.   $DAT >>Memory.clssa<<       18.07.1993 - (C) ProDAD Holger Burkarth
  5.                               17.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.  
  15.   GetAnimInfo MASTER
  16.   IF RC=0 & RESULT~="" THEN DO
  17.     MT.1 = "Gesamten Speicher neu ordnen (schnell)"
  18.     MT.2 = "Gesamten Speicher neu ordnen (gründlich)"
  19.     MT.3 = "Animation für Play optimieren (schnell)"
  20.     MT.4 = "Animation für Play optimieren (gründlich)"
  21.     MT.5 = "Nichtveränderte Anims auslagern (schnell)"
  22.     MT.6 = "Gesamten Speicher freigeben bzw. auslagern (langsam)"
  23.     MT.7 = "Alle verwendeten Dateien freigeben"
  24.     MTMax=7
  25.   END
  26.   ELSE DO
  27.     GetAnimInfo SOURCE_A
  28.     a=RESULT
  29.     GetAnimInfo SOURCE_B
  30.     b=RESULT
  31.     GetAnimInfo SOURCE_C
  32.     c=RESULT
  33.     GetAnimInfo SOURCE_D
  34.     d=RESULT
  35.     IF a~="" | b~="" | c~="" | d~="" THEN DO
  36.       MT.1 = "Gesamten Speicher neu ordnen (schnell)"
  37.       MT.2 = "Gesamten Speicher neu ordnen (gründlich)"
  38.       MT.3 = "Nichtveränderte Anims auslagern (schnell)"
  39.       MT.4 = "Gesamten Speicher freigeben bzw. auslagern (langsam)"
  40.       MT.5 = "Alle verwendeten Dateien freigeben"
  41.       MTMax=5
  42.     END
  43.     ELSE DO
  44.       MT.1 = "Gesamten Speicher neu ordnen (schnell)"
  45.       MT.2 = "Gesamten Speicher neu ordnen (gründlich)"
  46.       MT.3 = "Gesamten Speicher freigeben bzw. auslagern (langsam)"
  47.       MT.4 = "Alle verwendeten Dateien freigeben"
  48.       MTMax=4
  49.     END
  50.   END
  51.  
  52.  
  53.   Botton=""; i=1
  54.   DO UNTIL i>MTMax
  55.     Botton=Botton "'" MT.i "'"
  56.     i=i+1
  57.   END
  58.  
  59.  
  60.   DO FOREVER
  61.  
  62.     MSRequester "TITLE '*** Memory ***'",
  63.                       "''",
  64.                       "'Wenn clariSSA für eine Action nicht mehr genug Speicher'",
  65.                       "'bekommt können Sie mit den folgenden Möglichkeiten ver-'",
  66.                       "'suchen, wieder mehr Speicher zur Verfügung zu bekommen.'",
  67.                "PTEXT " Botton
  68.     IF RC~=0 THEN LEAVE
  69.  
  70.  
  71.     wahl=RESULT
  72.  
  73.     IF wahl=1 THEN DO
  74.       SSAControl RESP DDOAlloc
  75.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  76.     END
  77.  
  78.     ELSE IF wahl=2 THEN DO
  79.       SSAControl FlushMem 99999999
  80.       SSAControl RESP DDOAlloc
  81.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  82.     END
  83.  
  84.     ELSE IF (MTMax=7 & wahl=3) THEN DO
  85.       SelectAnim MASTER
  86.       SSAControl DDOPlayAlloc
  87.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  88.     END
  89.  
  90.     ELSE IF (MTMax=7 & wahl=4) THEN DO
  91.       SelectAnim MASTER
  92.       GetPlayMode
  93.       OldPlayMode=RESULT
  94.       SetPlayMode FOREVER OFF
  95.       SSAControl FlushMem 99999999
  96.       PlayAnim Screens
  97.       SSAControl DDOPlayAlloc
  98.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  99.       SetPlayMode OldPlayMode
  100.     END
  101.  
  102.     ELSE IF (MTMax=7 & wahl=5) | (MTMax=5 & wahl=3) THEN DO
  103.       SSAControl OutAllDDO
  104.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  105.     END
  106.  
  107.     ELSE IF (MTMax=7 & wahl=6) | (MTMax=5 & wahl=4) | (MTMax=4 & wahl=3) THEN DO
  108.       SetWorkScreen OFF
  109.       SSAControl FlushMem 99999999
  110.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  111.     END
  112.  
  113.     ELSE IF (MTMax=7 & wahl=7) | (MTMax=5 & wahl=5) | (MTMax=4 & wahl=4) THEN DO
  114.       SSAControl RESP
  115.       IF RESULT~="0 Bytes" & RESULT~="NoAnim" THEN Message "'Speicherersparnis = "RESULT"'"
  116.     END
  117.  
  118.     LEAVE
  119.   END
  120.  
  121.  
  122.  
  123.   FailAt AltFail
  124. exit
  125.